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LABEL 000000000PRlNTER00l75l??CC EX OB JECT/KEYWORD> F I LE SOURCEF I LE.*SYMBOL/ TSSMcP I END* 



OBJECT /KEYWOKD 
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SAVE REAL. 
SAitE REAU 
PROCEDURE 
SAVE PROCE 

SAV E PR_OC 

SAVE PROcE 

SAVE PROCE 

STRfA 

PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
fMCEDURi 

PROCEDURE 

SAVE PROC 
SAVE PROCE 
RE 
SAVE REAU 
PROCEDJJRE 
REAL PROCE 
PROCEDURE 
REAL PROCE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
SAVE INTE 
PROCEDURE 
PROCEDURE 
REAL PROCE 
"EAy PMCE 
PROCEDURE 

PROCEDURE 
PROCEDURE 

SAVE PROC 
PROCEDURE 
PROCEDURE 
PROCEDURE 
SAVE PROC 
REAi, PROCE 
PROCEDURE 
REAL PROCE 
PROCEDURE 

D I 
PROCEDURE 
PRO CEDURE 
PROCEDURE 

Real pkoc 
procedure 
procedure 
save proc 
procedure 
save proc 
procedure 
procedure 
procedure 



PROCEDURE GETSPACECS 
PROCEDURE WAlTlOClODf 
ERRORFIXERCTYPE); VAL 
DURE SLEEPCADDRFSS.Ma 
EDURE MCPIN(S); VALUE 
DURE LOgTiMiNgCMiX,B) 
DURE ESPBiT; COMMENT 
M PROCEDURE MOVEtN)"!^ 

STOPMI EORWARDI 
SETMONITORFILECSTOPX 
GETMONlTOROW* FORWARD 
LOGDISKJ FORWARD? 
LlNEMESSAGES(BUFF)> V 
WhA IS G 1 N6P N t B U F F ) J V 
CHANGElNTRlNSiCF!LE(8 

changemcp(BUff); valu 

PRiNTDIRECToRYfBUFFJI 

mixpninT(BUff); value 
edure forgetspactcloc 
dure l0gtimingcmix,b) 

OUeSTeD ADDRESS fS UN 
PROCEDURE TWO(N)J VAL 
FORQETU&ERDlSKfA.DIV 
DURE PElUSERDlSK(N,T) 

ot;forwakoj 

dure expi forwardj 

schediocnum»tyPe»adR) 

SCHEDIDLE(AD«)« VALUE 
USERDlSKSPEClALCASE(Q 
FORGETeSPDiSK{SEG)»VA 
GER PROCEDURE DISkSPA 

STATUSIX 

INTERRUPT(TYPE)> VAL 
DURE FIND0UTPUT(MID»F 
DURE FINDINPUT(MID.FI 
StARTiMlNG(FN,U)» VAL 

FILE0PEN(X,A)J VALUE 
ENTERSYSMTR(N)> VALUE 
EDURE SAVEOPEN{A)» VA 
SETNOTjNUSE(U,RWL>> V 
FILLBUFFERS(CURRENT.F 

REALFILECL0SE(A)J VA 
EDURE FILtCLOSE(A)J V 
DURE DlSKADDRf 5S(MIDf 
8LASTQ(U)J VALUE U? R 
DURE FILEHEADER(MID.F 
PURGFlT(U)l VALUE U> 

rectohySearch, NSECON 

LOCKER(SEGMENT)l 
SELECTKUNCF)» VALUE F 
CONTROLCARD(A)IVALUE 
EDURt DIHECTORySEARC 
NEXTDCIOJPORHARD* 

ARTNfA,N)i VALUE A,N 
EDURE DlSKWAlT(CORE»S 

MAKEPRESENf (A)J VALU 
EDURE DISKI0(L»C»S.D) 
SPOUTircMESSAGF.TYPE) 
SPOUTeR(MFSSAgF»UNiTN 
FILEMESSAGEC I.K.M»F»R 



ize.type»sav 

MASK*U)iZ 
UE TYPE* REA 
SKiiX 

51 REAU SIF 
i VALUE MIX, 
PRESENCE BIT 
ORDS FROM^CH 



tF)> 

L TYPE* FORWARD* 

ORWARO* 

B> Real mix»b> forwa 

ROUTINE FOR ESP SEG 
ERE)"TO«(ThERE)»X 



rdjx 

MENTS i% 



VALUE STOPS REAL STOPI FORWAROI 



ALUE BUFF* R 
ALUE BUFF* R 
UFF)I VALUE 
E BUFF* REAL 
VALUE BUFF I 
BUFFJ REAL 

J VALUE MIX, 
LOCKED, THE 
UE N* INTEGE 
ALUE A.L*RtA 
*VALUE N,T*R 



J 

ADR* REAL A 
,R,U.J)*VALU 
LUE SEG*REAL 
CE(NWORDS,Pi 



EAL BUFF* FORWARD* 

EAL aUFf * FORWARD* 

BUFF* REAL BUFF* FORWARD* 
BUFF* FORWARD* 
REAL BUFF* FORWARD* 

BUFF* FORWARD* 

B* REAL MIX,e* 

PROCEDURE FINDFREEADORESS 

R N* 

L AfL*FORWARD*X 

EAL N,T*FORWARO * 



dr* forward* 
e 0,j*real q»r.j* 
seg*forwaro* 

MIX.AUX)* 



UE TYPE 
IDtTYPE 
D.REEL* 
UE FN.U 
X,A* I 
N* REA 
LUE A* 
ALUE U. 
iNALtCO 

lue a* 

ALUE A* 
FID,FPB 
EAL U* 
ID.NROW 
INTEGER 
D, AND 



* REA 

»form 

CDATE 

* REA 
NTEGE 

L N» 

REAL 

RWL* 

BOL»N 

HEAL 

REAL 
3»A,H 
FORWA 
S,SlZ 

U* F 
CLEAN 



J REAL F» FO 
A*ReAL A* FO 
H(A,btC}*VAL 



L TYPE* FORWARD* 

S,REEL»CDATE»CYCLE»KIND) 

»CYCLE»COBOL»ULfOF.MODE» 

L FN,U» FORWARD** 

R X,A* FORWARD* 

FORWARD* 

A* 

REAL U.RWL* FORWARD* 

R)* 

A* FORWARD* 

A* 
,10}* X 

RD*X 

E»BLEN,RLEN.S)*X 
ORWARDIX 
OUT ARE THE PROCEDURES 

RWARD* 
RWARD*X 
UE A,B,C*X 



; ARRAY A[*J* INTEGER N* FORwARD*X 

I/E,DlSK)* 

E A* REAL AJ 

J VALUE C»S. 

» 

0,TyPE)' 

.U,C,TYPE)* 



FORWARD* 
D* REAL L* INTEGER C»S,D*X 



OOOHOOO 
00018000 
00019500 
00020000 
00024500 
00025000 
00025900 
00032000 
00089100 
00089510 
00089520 
00089530 
00089540 
00089550 
00089560 
00089570 
00089590 
00089600 
00090000 
00165050 
00296380 
00306000 
00316000 
00316100 
00317000 
00317010 
00318110 
00318140 
00336100 
00364000 
00365000 
00369000 
00370500 
00371000 
00374000 
00377000 

XR9000379000 
00379010 

XR9000379100 
00380000 
00385000 

XR9000369000 

XR9000389100 
(ShM)00390000 
00392000 
00393000 
00397000 
00418970 
00422500 
00426900 
00427000 
00428000 
00429100 
00431000 
00431100 
00431500 
00432000 
00450300 
00451800 
00452600 
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PHOCF.DURE L8MESS(rN»SN. H » I 2. E » UN I TNO, X ) J 
P£l}C£OUfiE- TEfiMlNATE(MlX)> VAUUE MiX; KEAt MiX; FORWARQi 
SAVE PROCEHURE TERMINAL.MFSSAGE(N)I VAUUE Nl REAU N> FORWARDS 
BOOLEAN PROCEDURE SySTEMF ! LE ( A» B )» VALUE A,BJ REAL A,BI FORWARD* 
PRQ££UURE ENTERSYSriLEfN) J VALUE N; REAL N» FORli^ARO< 

PROCEDURE C0M5; FORWARD** 
PROCEDURE FILLSySTAT; FORWARD* 
PAOX.EDlUR£ SAVESTATiSTlCSJ pORWARO* 
PROCEDURE ASRI fORWARD»X 
PROCEDURE COMU* FORWARD** 
PROCEDURE C0M13* FORWARD** 
PROCEDURE COMMUNICATEO* FORWARD* 

FORWARD* 
FORWARD* 
FORWARD* 
FORWARD* 
VALUE B> REAL B* FORWARD* 



PHOCEDURE COMMUNlCATEl* 

proceduhe hbraryload* 

PROCEDURE LIBRARYZERO* 

procedure librarydumpi 
procedure oumpc ore c b ) * 



PROCEDURE C0M19) FORWARD** 
PROCEDURE C0M23* FORWARD** 

pRoe£DURt intrinsictablebuildlR(fh)» 

PROCEDURE MESSAqeTABLEBUiLDER* FORWARD* 

SAVE PROCEDURE RESULT* 

SAVE PROCEDURE PUNT(I)I VALUE I* REAL I* 
PROCEDURE CREATELOG(DDD)* VALUE ODD* ARRAY DDD[*]* FORWARD* 

SAVE PROCEDURE PAUSE(R)* VALUE R* REAL K* 
SAVE PROCEDURE CHECKLI NKS(Ml X, LOC ) * VALUE MlXtLOC* REAL MIX,L0CJ 
SAVE PROCEDURE SWAP( STATE » B) I VALUE STATE. B* REAL STATE, B* FORWARD* 

PROCEDURE ShORTCOMMUN I CATeS* FORWARD* 
PROC£DUFE_IMlTiALSHAP£N)» VALUE N* REAL N* FORWARD* 
PROCEDURE BRINGBACK(MIX)> VALUE MIX* REAL MIX* FORWARD* 
PROCEDURE REENTERfSTUFF)* VALUE STUFF* REAL STUFF* FORWARD* 

PROCEDURE Swapper; forward* 

BOOLEAN PROCEDURE 0UTWAlT(B)» BOOLEAN B* FORWARD* 
SAVE REAL PROCEDURE GETAREA(N)* VALUE N* REAL N» 
SAVE PROCEDURE rORGETAREA(N, A) I VALUE N,AJ REAL N,A* 

SAVE "integer PROCEDURE SPACE(N)? 
SAVE PROCEDURE LINKEU* FORWARD* 
SAVE PROCEDURE FORK ( ROUT I NE » PARAMETER. PRIORITY. SIZE* 

KILL(STACK)* 
SLEEPCADDRFSS. MASK)* 
COMPLEXSLEFP(CODE)* 
RUN(MiX)» 

SAVeMIX(MiX.LOgLINe)* 
HAlT* 

enteRlineQ(adR.line.prirty)* 



FORWARD* 
FORWARD* 



LOCATION)* 



SAVE 

SAVE 
SAVE 
SAVE 
SAVE 
SAVE 
SAVE 



PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
__PROC£OURE 
PROCEDURE 



PROCEDURE DCWRlTE(AOR»llNE.SlZE)* 
BOOLEAN PROCEDURE BLASTREADCL INE.C ) * 

SAVE PROCEDURE I OHfQUFST ( F I NAL. I ODFSC . LOC AT I ON ) * 
PROCEDURE OLDWIERDhAROLD* FORWARD* 
PROCEDURE NOTIFYCANDECMIX); VALUE MIX* REAL MiXJ FORWARD* 

PROCEDURE SYSDfSKlOf lO.L.A)* VALUE lO.L.A* ARRAY A[*3*REAL 



00454000 

00463100 
00463200 
00463300 
00464000 
00469000 
00469100 
00469200 
00474000 
00475000 
00477000 
00478000 
00478500 
00479000 
00479500 
00480000 
00480100 
00483000 
00487000 
00489000 
00491000 
00646000 
00650000 
00750000 
OOttOlOOO 
00803000 
00990000 
00990504 
00991000 
00992000 
00992100 
009922_00 
00993000 
00994000 
00994500 
00995000 
00998500 



lO.L* 



SAVE PROCEDURE NEWlOJ FORWARD* 

SAVE PROCEDURE STARTlO(U)* VALUE U* ReAL U* pOHwARD* 
SAVE PROCEDURE I M T I AT EDC I 0( i ODESC . S ) J 
PROCEDURE NEXTDCIOJ 
SAVE PROCEDURE ENTeREADYQ{ T ) J 
PROCEDURE USASiTAPE(AREA. TYPE. FROM, U.DIR)* *RhR 

INTEGER PROCEDURE AUX I L I ARYSPACE ( S I ZE ) * 

PROCEDURE FORGE TAUXlLIARYSPACEfSlZt. LOO* 

PROCEDURE FILLORKILLCA. START, SIZE. TYPE)* 
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070000 
089000 
099000 
123000 
127000 
138000 
15000U 
163100 
163350 
163410 
163500 
164000 
164200 
164300 
164500 
165000 
166000 
190000 
223000 
250100 
267000 
271000 
275000 
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« PROCEDURE Rfc:P0KTBACK{WHY,Pl.P2)> 02016000 

PHOCEOURE MAKEUOG(M,T); VALUE M.TI REAL M.i; FORWARD; 02020000 

Real procedure keyiN(b)i value bj boolean b; forward;* 02021000 ^ " ^ 

i boolean procedure WHYSLEEP(MaSK); value MASKj heal mask; forward;^ 02022000 '. 

boolean procedure 0LAY(L0C,MIXXJ; r « u * 02052500 i 

procedure SeEKNAM(A,B, CD. E,N); VALUE a, B;ReAL a. 8, CD. L»N; forward; 02052700 ~ ~ 1 

< PROCEDURE UNH00UUE(MIX);i 02053000 i, 

-«£Ai.-^R-QC£OURE G£T£SPDISK;fORWARD;x 0P1110O0 

PROCEDURE DlRECTORyBUlLDER(A»ODD); 02112000 ~ 

< PROCEDURE TWXOUT(A.B.C.D); VALUE A.B.C.d; REAL A.B.C.D; FORWARD; 021 3200 

PROCEDURE MeSSAGEWRiTER; 02 4000 

PROCEDURE SPOUTiT{MESSAGE»TYPE); 02132000 

i PROCEDURE SPOUTER(MESSAGE.UNlTNO,TYPE); 02132300 H, 

PROCEDURE ENDOFDECK(R); VALUE R; REAL R; FORWAio; 0?l77i00 ' ' 

PROCEDURE PBl0(A,B); VALUE A; RfAL A.b; FORWARD; 02176500 ' ^ ]"■ 

< PROCEDURE TERMlNATt(MIX); VALUE Mix; REAL. MfX;! 02180000 i'l 

MAk PRJCEOURE PLACEFINDER(S,A.L); 02 87i00 1"^' 

PROCEDURE STOPCANOY; forward; 02187600 ^^ - 

I PROCEDURE TeRMINALMESSAGA(N); value N; real N; 02188000 Hi 

SAVE PROCEDURE TERM J NALMESSAGEC N M VALUE N; REAL Hi 02330100 I - 

BOOLEAN PROCEDURE READEMFROMDISKCH. IB); 023471S0 -'' 

« PROCEDURE DRAlNOtUNlT, BUMP. ERROR); 023fl/?00 •'-• 

Real stream procedure uniTiN(Tinu.whaT); value what;?; 02348000 ij' 

REAL PROCEDURE EUFcA.B.b); VALUE A.B.l; REAL A.B.L; FORWARD; 02379000 ^ 

* INTEGER PROCEDURE CALCULATEPURGE C PURGE) ; X 02380000 

PROCEDURE changedate(Buff); value buff; real buff; forward; 02393100 ■'■ 

REAL PROCEDURE TAPELABEL( M.F . R, C .P ) ; VALUE M.F.R.CP; iKArOP393ioO ~ ^ - il 

i PROCEDURE PRINTCORECX); VALUE X; REAL X; Xl0a02394000 '% 

PROCEDURE dumpcore(Buff); xAioIasJiSo -^ 

PROCEDURE NAMFID(A.KTR);j; 02603000 '"' 

f REAL PROCEDURE TAPELABEL( MULF I D. F I D. REELNO, C YCLE . PURQt ) ; X 02635000 '.< 

R|fk Pg KEDURE L A BELASCRATC iULBL); VALUE L8L;REAL LBL;x 02659000 ' 

PROCEDURE NSECOND;fORWARD;J! 02692000 

* BOOLEAN PROCEDURE SySTeMf 1 LFC A . B ) ; VALUE A.B;ReaL A.B; FORwaRo; 02692500 

REAL PROCeDURF PUTORTAKE(Mi X, WHERE. I 0. WHAT ) ; 02700000 

^f^ocEDURE diRfctoryfullcpassby); value passby; real passby; 02722000 

t procedure dcerR(R); 097^0000 

PROCEDURE DCBUSYCV); 0?/6i000 

PROCrDURE MOREAREAS; 03002000 

< SAVE PROCEDURE FORgETAREA( N. T ) ; VALUE N.T; REAL N.T; 03015000 

SAVE Real procedure getarea(N); value n; real n; 03029000 

SAVE procedure QUEVENT(T.MiX); 03048000 

C PROCEDURE COMMi; % DISK I/O COMMUNICATE 03053000 

PROCEDURE COMM2; % COMMAND LANGUAGE WAlT COMMUNICATE 03061000 

PROCEDURE logout; FORWARD; 03070000 

* *^EAL PROCEDURE I NPUTSCAN( MODE» SOURCE tDEST, NUM. FLAGS) ; 030/1000 

REAL PROCEDURE 0UTRAN980f ADR. NUM. TYPE. LCC . B) ; 03075000 

PROCEDURE GIVFAWAY(A); VALUE A; REAL A; FORWARD; 03079000 

« RtAL PROCEDURE OU I KANB I DS{ ADR . NUM. TYPE . B. C ) ; 03080000 

REAL PROCEDURE OUTRANTC f ADR , NUM , TYPF . B, C ) ; 03080200 

PROCEDURE RUNSEPTlCfBUFF); VALUE BUff; REAL BUFF; FORWARD; O3O8IOOO 

SAVE PROCEDURE D I SPOSALc L. ? . R ) » VALUE L.I.K; REAL L.I.R; FORWARD; 03081100 

PROCEDURE MAKEPRESLNfcA); VALUE A; REAL A; FORWARD? 03099000 

PROCEDURE C0MH9; 03100000 

* PROCEDURE RFP0RTBACK(WHY,P1,P2); 03 11OOO 

PROCEDURE TWXOUTCADR. NUM. TYPE. LD; 03 ?ftOOO 

PROCEDURE CLEARTANKCLL.MCP); 03200000 

« REAL PROCEDURE DCWR I TE( ADR .L I NE . S I ZE ) ; 03214000 

p2n5rSnS^ ^^^^^^ ^^^ ' ?^''^ ^ ' ^ "^^^ IYPE.BUFr; REAL TYPE.BUFh; forward; 03245900 

PROCEDURE QUITTER(LINE); "^ 03246000 
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4 PROCEDURE DCWA I T ( ADK, L I NE » H, MASK . CLCK ) J 03267000 

HEAL PBi)CEDURE I NPU I SCAN(MOOE^ SOUKCEtDtST ,NUM»FLAGS) J 03276800 , . _^ _ . ._ 

PROCEOUKE C0MMl3i 03292000 

< PROCEDUHE C0MM5I 03375000 

PROCEDURE ENTERLINEQ(ADR#LINE»PRIHTY)? 03^17000 ^_ ^ 

PROCEDURE NAKQUEJ 03440000 

« PROCEDURE r)CTlMEOUT(R)) VAlUE RJ REAL H; 034b8000 

PROjtEDURL NOTlfYCANOtJ 03504000 
PROCEDURE PAPeRTaPEIO(R, STA. FLAGS, BUFSZ»Mi ){ % HANDLES END Of MESSAGE 03550000 

< PROCEDURE HELLO(K)J 03573000 

PROCEDURE OLDWIERDHAROLD) 03608000 

SAVE PROCEDURE GIVtAWAYCA)! 03669000 

« PROCEDURE DClOFlNiSH(R)> 03710000 

SAVE PROCEDURE I Nl T 1 ATE I 0( I ODESC . M I Xa U3 J X 040000a0 ^ „ _._-._ — __.__ 

SAVE PROCFOURE WA i TOHSWAP(U, A ) I VALUE U.Al REAL U,A; 04014200 

t SAVE PROCEDURE QUEUEUP(U3I VALUE U J REAL Ui% 04016000 'f 

_5A^^E P.RO.tEDUR£ LINKEUI 04019500 , „ _ _^ 

SAVE PKOCFDURE STARTlOcU)! VALUE UJ REAL Un, 04020000 

I SAVE PROCEDURE PH i NTeRf I N I SH( U ) ; VALUE U; REAL U»X 04035000 

SAVE PROCEDURE I OREttUEST( F I NAL» I ODESC . LOC AT I ON ) I X 04U40000 

SAVE PROCEDURE F I N I ShOFF I 0( U ) ) VALUE UJ REAL Ul« 04067000 

( PROCEDURE PROGRAMRELEASE»X 04099000 

SAVE PROCEDURE NEWIOIX 04115000 J^' 

PROCEDURE DISK0RAUXERR0R(R)J VALUE HI REAL Hi FORWARDJ 04121410 -; 

I PROCEDURE ACTUALlOEKK(R}; VALUE RJ ^eAL KJ FORWARD? 04121425 ^ 

PROCEDURE LiNKUPdYPEf KEY)J VALUE TYPE»KEYJ REAL TyPE»KEY> FORWARD*? 04121450 ^^' 

PROCEDURE CHECKJ0B0RFILEMESS(M1X.FIB,U);X 04121500 -^ 

i PROCEDURE UOGOUTMAINT(B); VALUE BJ REAL Bi FORWARD;* 04121600 -t 

PROCEDURE MAINTL0GGER(B)) VALUE B» REAL Bl FORWARUU 04121650 - 

SAVE PROCEDURE I OF I N I Sh( R .C ) I VALUE R.CI REAL R»CJ 04122000 M 

i SAVE Real procedure WAjIiOf lOD,MASK»Uni 04240000 p« 

REAL PROCEDURE T APEPAR i T YRETRY( R.U.KEY J ; X 04254000 M 

PROCEDURE DISK0RAUXERR0R(R)J VALUE RJ REAL RJ 04256000 '^1 

I END PROCEDURE Dl SKORAUXERROR J 04353000 ^i' 

PROjtLEDURE ACTUALIOERHCR); VALUE RJ REALRJ 04353200 ^"j 

REAL PROCEDURE TAPePARI T YRt TRY(R#U»KEY ) J X 04548000 pj 

I REAL PROCEDURE PLACEF I NDFRC S, A# L ) J 04700000 i^l' 

REAL PROCEDURE SECURI TYCHECK(MiDiF ID#USE»HEAD) J 04/90000 _ j'*1 

PROCEDURE ShEETDIDDLER(BUFF»TYPE»SiU)J VALUE BUFFt TYPE* S ID J 04798000 p 

I PROCEDURE ZIPPER(X,Y)J VALUE X.Yl REAL XtYJ FOSWARDJ 04800000 |«» 

PROCEDURE DlSKL06(MlD»FlDtH)J VALUE MlD,FlD,HJ ARRAY Hi*li III2O46OO1OO N 

PROCEDURE TNDIANBOYJ 05020000 !' i 

( PROCEDURE INDIANGIRLJ 05220000 ; :« 

PROCEDURE C0MM15J % INDEPENDENT STARTER FOR CANDE 05407000 

PROCEDURE SYSbiSKlO(iO,LlNEtA)> 05423000 1- 

i PROCEDURE LOGWARNCROJ VALUE RCJ RfcAL RCJ 05461000 i :♦ 

PROCEDURE F0RMTIME(W,T)J VALUE W.TJ REAL WfTJ 05607000 

PRdCEbURE MAKFLOG(MESS,TYPE)J 05620000 

I PROCEDURE STARTCANDY(ESED»PRI0RITY)J 05655000 ull 

PROCEDURE STOPCANOYI 057O0000 

PROCEDURE SPReADThEWORdJ *UPDATt5 ADINfO & SENdS h/L MESSAGE TO 05720000 

I PROCEDURE C0MM17; 05750000 

BOOLEAN PROCEDURE BLASTRE A0( L I NE. C ) J 05758000 

PROCEDURE SCRATChSORT(A,N) i 05806500 

I PROCEDURE SCRATCHOlRECTORYtRROR(AiN) J 05809600 

BOOLEAN PROCEDURE SCRAT CHCHECK( I » H » S ) i 05811170 

PROCEDURE ScRATCHSPEClALCASE(CN»A.N,CORADOR»SEGADDRf I»H»SCRATCHSEG)J 058 U 340 

f PROCEDURE SCRATCHOlRECTORYENTERfAtN); 05813700 

PROCEDURE SCRATCHDiRECTORYDELETEf A,N)J 05827300 

PROCEDURE SCRATCHCLtAN{ARY,BC»LlNK) J 05837800 









REAL PROCEDURE PETUStRD I SK ( N, T ) > VALUE N,T; BEAL NtT i 05839400 

PEQtXaUBE FORGETUSERDlSK(A,N)l VALUE A,N; REAL A,N i 05647000 ..^ -^ .- - -k 

PROCEDURE KRUNCHER(H>* ARRAY Ht»3' KORWAKOI !|R50056ft9900 V 

PROCEDURE SCHEDU00K(KTR,TYPr)^ VALUE KTR,TYPEI REAL KTR.TYPEU 05850000 

PROCEDURE SCHEOIDLE(ADR)> VALUE AOR? REAL ADRl 05858700 , „.. 

PROCEDURE SchEDIO(NUM,TYPF.ADR); %%\F FORQUED ThEN ONLY 1 PARAM, 05693000 

PROCEDURE DKBUSINESS(BUFF)I VALUE BUFFJ REAL BUFPJ X026-05950000 

SAVE ^PROCEDURE D I SK I 0( LOC I OD . CORE . S UEt I SK ) J X 06000000 

PROCEDURE rORGETESPDlSKCS)! VALUE SI REAL SI FORWARDI 06020500 

REAL PROCEDURE GETESPDiSKIX 06021000 

PROCEDURE F0RGETESPDISK(SEGMENT)J VALUE SEGMENT! REAL SEGMENT!* 06036000 

PROCEDURE DiSKBUGlX 06046000 

PROCEDURE CLEANOUT(SYS)l 06057340 

ENDI % OF PROCEDURE CLEANOUT 06059820 

SAVE PROCEDURE DI SKWAI T(CORe.S jZE»DI SK ) J 06061500 

PROCEDURE DiSKSQUASH(BUFFJ> 06068000 

SA^E PROCEDURE INITIALIZE' rORWARDI 06179400 

SAVE Real procedure CORENDJ forward; 06l79600 

PROCEDURE USEROlSKSPEC|ALCASE(QtR»UT»J) J 06350000 

PRQCEOU-RE GETMOReOLAYDiSK(MiX)JX 06400000 

HEAL PROCEDURE SECUR I TYCHECK( Ml D»F ID. USeR I D. HEADER ) I 06460000 

BOOLEAN PROCEDURE OUTHAlT{B)J BOOLEAN B) 06467000 

Real procedure 0UTRAN980 (ADR.NUM,TyPE»UCC.B)J J;i0906500000 

Real procedure outranbioscadr»num,type»b,t)> 0659oooo 

REAL procedure OUT RAN I C ( AOR .NUM , T YPE» B. C ) J 06610000 

RIAL PROCEDURE NEXTCDNUM( UPDATE ) I VALUE UPDATE* BOOLEAN UPDATE! 07001600 

PROCEDURE STARTADECK(N)J VALUE NJ REAL N> FORWARD! 07002000 

PROCEDURE ENTeRCONTROLDeCK(H)! VALUE H» ARRAY HC*a! FORWARD! 07002100 

PROCEDURE C0M23!« 07004000 

PROCEDURE STAHTLOADNCKTR)! VALUE KTR! REAL KTR!I 07243000 

PROCEDURE TABLE0FC0NTENT5(BfC0UNT)!X 07268000 

PROCFDURE REMOVEDECKCN.U); value N.UI real N,U! 07298000 ^ . 

PROCEDURE DECKReMOVER(B)! VALUE 8! REAL BIX 07354000 

BOOLEAN PROCEDURE RFADEMfROMD I SK(H» IB ) I X 07376000 

BOOLEAN PROCEDURE PR I NTORPUNCHWA I T( Q,PNCH> I VALUE «»PNChIREAL Q.PNCH! 07405100 

"PROCEDURE ENDOFDECKcR) I VALUE R» REAL R! 07406000 

PROCEDURE STARTADECK{N)| VALUE N| REAL N! 07422000 ^^ 

PROCEDURE RUNThEDECK(B)I VALUE PJ REAL BIX 07457000 _ _ ^ ^^^6 

PROCEDURE EXTeRNALENO(B)I VALUE Bl REAL Bl 07473100 

PROCEDURE ChANGEPRIORiTY(BUFF.MiX); value BUFF»MIX| real BUFF»MIXI 07485000 

PROCEDURE ENTERCONTROLDECK(H)l VALUE H^ ARRAY HC*3! 07541000 

BOOLEAN PROCEDURE MTX I N( I , U. BUFF ) I X 08000000 K^ 

PROCEDURE TAPtPURGE(BUFF)! VALUE BUFF! REAL BUFFIX 08024000 

PROJLEDURE MiXPHlNTfBUFF )» VALUE BUFF! REAL BUFF!* 08058000 

PROCEDURE ReWiNDANDLOCK(WhAT)I VALUE WhATI REAL WHATII 08079000 

PROCEDURE GIMEDATE(B.OT)! VALUE B»DT! REAL B,0T! FORWARDI xRh 08094500 

PROCEDURE PRiNTOlRECTORYcBUFF)! XDSX08095000 _ _ 

F>ROCEDURE PBI0(A»P); VAlUF AI REAL A, PI FORWARD! XP 08l70l00 

PROCEDURE CONTINUITYBITJX 08171000 

BOOLEAN PROCEDURE PR I NTORPUNCHWA I T f «. PNCH ) I VALUE Q.PNCHlREAL Q,PNCH! 06255000 

X This procedure is responsible for starting PRNPBT/DISK, it CHECKS 06255055 

PROCEDURE PR!NT8ACKUP(BUFF); VALUE BUFFI REAL BUFF; XP 08282000 

X This procfoure handles the pb message, making ihe necessary checks 06282110 

PROCEDURE TIMEOUT (B)J VALUE Bl REAL BIX 08305000 

PROCEDURE G1MEDATE(B.DT)I VALUE B.DH REAL B.DTl 06317000 
PROCEDURE niSKLOGCMlO.FlD.H^} VALUf Ml D, F I D» HI REAL MI U. F I J ARRAY Ht*]i 06341100 

PROCEDURE SETDATE(BUFF)1 VALUE BUFF I REAL BUFFIX 08343000 

PROCEDURE CHANGEDATEcBUFF)! VAlUE BUFF! REAL BUFFIX 08376000 

PROCEDURE SETIME(8UFF)J VALUE BUFFI REAL BUFFIX 08390000 

REAL PROCEDURE FORMESSc BUF F » HI ) I VALUE BUFF.Hll REAL BUFF. Hi! 08416000 



r 
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PROCEDURE SUSTATUS{AiDDD.B)> VALUE A»DDD,Bi 
RRjOCEOURE 0UTPUTLABEL(8)) VALUE Bl REAL Bi% 
PROCEDURE TlMfUSEO(B,X)l VALUE B.X> REAL BtX 
REAL PROCEDURE ANVIL(IL»Z)I VALUE IL.ZI REAL 
PROC£OUR£ SAVeTHEUNIT(B)I VALUE 9> REAL BIX 

BOOLEAN PROCEOUKt WHYSLEEP( MASK ) ; VALUE MASKJ 
END PROCEDURE WHYSLEEP* 

PRogiDURE changeoptioncbufe.RS);* 

PROCEDURE TYPOP(KTR,PO)J VALUE KTR.PO; KE 
PROCEDURE PBI0(ALPhA. POINTER)! VALUE ALPhAJ 
{ ThJS procedure HANDLES 10 FOR ThE CREATiO 

PROCEDURE TIMERELAXER(KTR,TYPE»MIX);J! 
PROCEDURE CHAN6ErACT0R(BUFF»TF)J VALUE BUFF.T 
PROCEDURE ShEETdIODLER(BUfF#TYPE.SiD)J VALUE 

PROCEDURE logout; 
PROCEDURE LOGDISKI 

PROCEDURE L!NEMESSAGES(BUFH)» VALUE BUFHI 
PROCEDURE CALLCANOE(BUFH»TYPE)J VALUE BUFH»T 
REAL PROCEDURE NEXTAUXMEMW0R0(HEADER»F ILEPARA 

IF QxSkiddress « Then % first call on pr 

EXiTi END PROCEDURE NEXTAUXMEM«ORD> 
procedure TRANSFERMCPT0AUXMEM{H0RADRS,MAXL0C) 
END PROCEDURE TRANSFERMCPTOAUXMEMi 
PROCEDURE SETM0N1T0RFILE(ST0P)J VALUE STOP; K 
END PROCEDURE SeTMON I TORF I LE ? 
PROCEDURE GETMONirOROWl 

END PROCEDURE GETMONi TOROw; 

PROCEDURE fnteRSysmtR(N); value n; Heal h; 
gXi Tt FNn PROCFnuRF eNTe«SYSMTR; 
PROCEDURE CHAN6EAUXFILES(8UFF»WA); 
PROCEDURE WhAT|NTRNSiC(B)I VALUE B; REAL Bt f 
PROCEDURE iNTRlNSlCTABLfBUlLDER(FH); VALUE FH 
BOOLEAN PROCEDURE SYSTEMF !LE( A,B) J VALUE A,BI 

PROCEDURE CHANGEINTRINSICFILE(BUFF)I VALUE 
PROCEDURE CHANGEMCP(BUFF); VALUE BUFFJ REAL B 
BOOLEAN PROCEDURE SYSTEMF I LE( A, B ) > VALUE 
PROCEDURE WhATSGOINGON(BUFH)» VALUE BUFH* REA 

PROCEDURE FENCEMOVERCB, BUFF)> 
PROCEDURE LINECLEAR(KTR)> 

real stream procedure gnccbmi 
boolean stream procedure tan(6) > value c i 
Real procedure expj 

STREAM procedure FKM 1 1 ( « t T »M. WB ) J V 
PKOiEJLURX DTI 
REAL PROCEDURE PRNPBTSPECASEHZ) I 

% this procedure handles the following func 

procldure prnpbtspecase2cz)i 

% This procfduRf handles additional thinrs 

procedure C0M19{ 
procedure SPOSET(TYPE»BUrH)J 
REAL procedure ANALYSiSIX 
save INTEGER PROCEDURE AC TUALOVERLAYAOD^ESSc 

procedure aux ili ar ymemor yc a sualty recovery I 
PROCEDURE auxiliary table initialize; 
procedure makepresenT(C); value cj real ot% 

PROCEDURE C0M5J* 

procedure ZIPPER(WI»W2)I VALUE Wl.wai REAL W1.W2I* 
REAL PROCEDURE EUF(A»BfL)l VALUE A,B»l; REAL A.BiLI 
PROCEDURE COMllI COMMENT ALGOL I/O COMMUN I C ATE I « 

PROCEDURE niSPLAYfX); VALUE X> KeaL XIX 



Real a»b; array oddc*]* 
t% 

IL*ZIX 

Real mask; 



AL KTR,POI 

REAL ALPHAfPOlNTERI XP 

N OF BACK-UP FILES, FOR 

Fl REAL BUFFI BOOLEAN TFI 
BUFF»TYPE#Sil); 



SEAL BUFHl 

ype; real bufh.type; 
m»diskaddress); 

OCEDURE 

; VALUE horaors»maxloci 
EAL stop; 



okward; 
; real fh; 
Real a.b; forward; 
buffi real buffix 

UFFI 
A, 81 REAL A>B;x 

L bufh; xds 



% 

alue «»Tim;x 

TIONS FOR C0M19, DEPENDING 
FOR C0M19, VALUES Of Z ARF 

TYPE. MIX, LOC); 



06436900 

08439000 
08525000 
08546000 
08575000 
08599000 
08623000 
08624000 
08679000 
08700000 
08700910 
08730000 
08800000 
08850000 
09000000 
09050000 
09J00000 
09300000 
09400100 
09401300 
09404300 
09404400 
09410000 
09410200 
09423800 
09423900 
09428800 
09428900 
09433500 
09433600 
09491006 
09500000 
09550000 
09600000 
09679100 
09700000 

X09800000 
09900000 
09955000 
lOOOlOOO 
10007000 
100120OQ 
10047000 
10082000 
12500000 
12500110 
12800000 

S12800110 
13000000 
13200000 
14000000 
14105000 
14120000 
14122000 
14155000 
14343000 
14531000 
14543000 
14623000 
15019000 
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HEAL BUFF#MIX) 



KTR.MiXf 
NE.AL B,KTRX; 
REAL B.KTKXI 



PROCEDURE C0M13 }% 

PRQ.CZOURI WHATSITC8UFH); VALUt SUFHi REAL BUFHJ 

BOOLEAN PROCEDURE cONQueR ( C » N» L» S« G) I 
REAL PROCEDURE BATChSeLeCT(F»N,B.L) ; VALUE F»NI 
PRQCEDiiBt CQREPR I NT { Q ) ? 

BOOLEAN PROCEDURE PR FGAMeS ( BUFF » M I X ) ; VALUE BUFF»MlXI 
PROCEDURE SPOUTMCP(BUFF)} VALUE BUFF5 REAL BUFFJ 
_&iy2XLPXliJBi^Jii4AlIliTRNSlCCBUFF)J VALUE BUFFV RfAL BUFF; 
REAL PROCEDURE AUXPRlNT(Q)> VALUE «< REAL Qt 

END PROCEDURE AUXPRlNTI 
RFAL PROCEDURF KEY I N{>CAN(KTR.Ml X ) » REAL 

END PROCEDURE KEYINSCANI 
PROCEDURE KEYlNOtB,KTRX)) VALUE B,KTRX; 

ENO PROCEDURE KEYINO; 
PROCEDURE KEYIN1(B,KTRX)I VALUE 8»KTRX> 

END PROCEDURE KEYINU 
P ROCEDUR E KIYIN2(KTRX)J VALUE KTRXI REAL KTRXJ 

% auxiliary procedure to "keyin", 

% this procedure is called as an independeni runner from 

% p rocedur e ^kiyin"; 
end procedure keyin2! 

real procedure keyin(8)> value b? real b« 

% This procedure functions as a driver for auxiliary procedures 
This procedure functions as a dRiveR f^" auxiliary procedures 
•'kfyin0«,»»keyin1" and "keyln?", procedures "keyino" and "keylnl« 
are called directly, and procedure "keyin?" is forked as an 
end procedure keyin) 

procedure l8mess(fnf sn»ii»i2»e.unitn0»x)i 

prqdequre stopmi 

PROCEDURE FILEH0LD(A»B,TOG»L0c»HOLD)J 

Real procedure directorysearch(a#b»optn)i» 

PROCEDURE COMMUNiCATEtl 
PROCEDURE COMMUNicaTEOI 

procedure shortcommunicatesj 

PRO C EDUR E fro NT end 1 M l X ? » 
procedure SELECTRUNi; 

%%%% Those declared in 
this procedure will bf 
this procedure will be 



X 



PROCEDURE 
EXECUTED, 
EXECUTED. 



SELECTRUN, 
THIS PROCEDURE 
THIS PROCEDURE 



CAN 
CAN 



ALSO 
ALSO 



RETURNING TO THAT PROCEDURE, 



X PROCEDURE ONLY 



SELECTRUN, 



WILL BE EXECUTED. 
IN TURN, SPECIFY 
"SELECTRUN?** FOR 



END PROCEDURE SeLECTRUNU 

procedure selectrun2j 

%%%% Those declared in procedure 

END PROCEDURE SeLECTRUNZ; 

PROCEDURE SeUECTRUN(F)I VALUE Fi ReAL F» 

%%%% VARIABLES DECLARED iN ThiS PROCEDURE, 
PROCEDURES "SELECTRUNI" AND/OR "SeLfCTRUN2" 
PROCEDURE "SELECTRUNI" AND "SELECTRUN2" MAY, 

%%% SEE ALSO "SEGMENT ZpRO" SECTION IN PROCEDURE 

PROCEDURE PRlNTrHEC0VtR{CARD,UNlTNO,PS); 

PROCEDURE FFTCHCUNITN0,CARDL0C,S0UHCE)I 

Real procedure ScN(UNlTN0,CARDLOc,SOURCE»ACCUM.K0UNTfLASTSCAN. 

procedure sftknam(a,btc,d»e,n); value a«bj heal a,b,c,d,e,n} 
Real procedure ppc 

PROCEDURE SECUR|TYMAINT( T YPE , SM I 0, SF I D, CMM, SFH. CARD ) > 

***♦ ALSO SEE PROCEDURE "SELECTRUNi" ( SEQ , NO, 20055600 ) FOR 
REAL PROCEDURE LIBCC; 
END? % LIBCC PROCEDURE 
REAL PROCEDURE CCSETf pORWARDJ 



1506000U 
XDSX15106500 
15166000 
15200000 
15300000 
15400000 
15500000 
15534000 
15605000 
15609600 

16029000 
16037900 
16038000 
16360000 
16361000 
16609000 
16610000 
16611000 
16612000 
16613000 
16950000 
16951000 
1695U00 
16951100 
16951200 
16951300 
16971000 
17000000 
17900000 
18000000 
18155000 
16500000 
16700000 
19500000 
XR751999100I 
20011200 
20016400 
20018200 
20018200 
20018500 
20023000 
20080200 
20080500 
20085600 
20140300 
20140800 
20146000 
20147200 
20147300 
?0l76200 
20289010 
20292000 
20314000 
20382010 
20383000 
20511100 
20542800 
20566000 
20580350 
20580400 
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PROCEDURE CCFINISH» 

REAL PRQCEDURE CCCOMPjLe? 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 



REAL 
REAI 
REAL 

Reau 



INITIALIZEITJ 
CCUNITJ 

ccsecmainti 

CCL-ABELi 

PROCEDURE cONTROLCARD(CARD); VAUUE 
RtAL PHOxEOURE CCSeTJ 

Save proceduRf swaP(STatf»b)» vauu 
procedure reenter(stuff)» value st 
procedure bringback{mix)i value ml 
save procedure mcpin(s); value si 
procedure expander(mix,r)j 

BOOLEAN PROCEDURE UNhOOKANDWAI T(M I 
PROCEDURE hOOKUPMcP(Mix)J VALUE Mj 
SWAPlNGlOtMlX#R)» VALUE 

pjoxeduRe movecNiHiT); v 

SWAPPER* 

INITIALSWAP(N)I VALUE N) 

FRONTEND(MlX)i 

cxpanoeR(Mix,R); 



CARD5 HfAL CARDI 



PROCEDURE 

.^SIREAM 

PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 



E STATE. BJ Re 
UFF< REAL STU 
X? heal MIX» 
REAL S; 

XtMCPJJ VALUE 

x» Real mjxi 
Mix»Ri Real m 
ALUE n,h»t; 



AL STATE»BI 

vn 



MiXfMCPl REAL MIX#MCPJ 
IX, RI 



PROCEDURE F!NDFREEA00RESS(N)IVALUE 

PROCEDURE NSECONDII 
PROCEDURE status;* 
BOOLEAN PROCEDURE OLAYC LOC , M i XX ) ; 

SAVE PROCEDURE FORqeTSPACECLOc ) ;X 

SAVE Real procedure actspacecsize, 

SAVE INTEGER PROCEDURE DlSKSPACE(W 
...AAlL. _R£1L-. . P R Q C ED UR t GE T S P a C E C S i Z E i 
PROCEDURE FINDFREEADDRESS(N); VALUE 
IF tFINDFREECTRS«FlNDFREECTR+l) 
% CALLED FREQUENTLY S 
SAVE PROCEDURE DlSPOSAL<L. I »R) < 
PROCEDURE RUnSEPTiC(BUFF)I 

lOJILEAN PROCEDURE B6500F0RMATTE 
PROCEDURE LIBRAKYLOADSPECIALCASE(Z) 
PROCEDURE DOES INITIA 
PROCEDURE LibRaRYLOaDJ 

endi % Of library load procedure 
procedure librarydump; 

ENDJ % LIBRARY MAiNT, PROCEDURE 

PROCEDURE LiBRARYZEHOi 
PROCEDURE FILLORKILLCA, STARTt SlZ 
INTEGER PROCEDURE AUX I Ll ARYSPACEC S 
PROCEDURE FORGeTAUXILIARYSPACECSIZ 

auxiliarytableinitialize 
auxiliarymemorycasualtyr 
frrormesseR(Typf)J value 
errorfixeh(Type)» value 
skipf|le(u,d)> value u,d 

FlNDObTPUT(MlD»FIO.T 
FlNDlNPUT(MlD.f ID.RE 



Real n; 



NIREAL NIFORWARPJ 



SAVEF»MIX)J 
OROS»MiX,AUX) 
TYPE#SAVEF)» 
Nl REAL NJ 

GE« 32 Then* 

MAKE IT A S 



R(CT» I.X,XX#B 
J VALUE ZJ RE 
L SET-UP AND 



THIS PROCEDURE IS 
AVE PROCEDURE 



CL»H»0PTI0N)» 

AL II 

OTHER SPECIAL FUNCTIONS 



PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 
REAL PROCEDURE 
REAL PROCEDURE 



BROCEDURE STARTIMING(FN,U)> VALUE F 
REAL PROCEDURE D I Sk ADORE SS( M l , F I D» 
BROCEDURE SETNOT I NUSF{ U.RWL ) J VALUE 
BLASTQ(U)> 

8UILDLABEL(LABLE»MID.FID, 
FILEMESSAGE{I,K,M,F»R»O.C 
F I LLBUFFERSt CURRENT, FINAL 



£, TYPE3J 
lZE)i 
EtLOC)* 
I 

ecoveRyj 
type; Real t 

type; INTEGER 

i REAL U,D; 
YPt, forms, REt 
U.,CQAlt,CYCL 
N,U; REAL FN, 
FPB3,A,H, 10); 

u,kwl; real 



ype; 
type; 

L'CDATE, cycle, KIND);* 
E,C0B0L'UL,0F,M0DE,FN); 

u;x 

* (Shm 
u.hwl; 



procedure 
procedure 
procedure 
procedure 



REEL, C date, CYC LE,PFACT,PTN,BLK0DE,* 

,type)» 

, COBOL, NK); 
REAL PROCEDURE F I LtHEADER{ M I D , FID. NNOWS, SIZE. BLEN, HLtN, S); 



20^80800 
2Ot>036OO 
20586700 
20589700 
20590650 
20594850 
20597558 
20700000 
21000100 
21005000 
21012100 
21013000 
21026500 
21027000 
21100000 
21112000 
21116100 
21200000 
21265000 
21293000 
21313000 
22000500 
22001000 
22055000 
22226000 
24000000 
24032000 
24101000 
24300000 
24600000 
24610000 
24611000 
26000000 
26060000 
27990100 
27997600 
27997615 
28000000 
28399000 
28400000 
28730000 
26800000 
29000000 
29100000 
29300000 
29400000 
29500000 
30903000 
31000000 
31100000 
37000000 
3M77000 
37271000 
)37286000 
37302000 
37 320000 
37337000 
37357000 
37385000 
37418000 
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PROCEDURE AND EXPECT IT TO RETURN WITH THE SAME VALUE* 4599^000 



PROCEDURE PURGEIT(U); VALUE UJ INTEGER UtX 37ttH9000 

_PJ<OCi:ilUR£ KRUNCHERCH)* ARRAY Ht*U %Rlfi7bOOOOQ 

PROCEDURE niSKr!l-EOPEN(ALPHA)< VALUE ALPHAS INTEGER ALPHAJI; XR9038000000 ^ ff 

PROCEDURE OThERFILEOPENiN(ALPHA)I VALUE ALPhAI INTEGER ALPHA; 38l02000 

PROCfPURE OTHERFILEOPENOUT(ALPHA); VALUE ALPHAI INTEGER ALPHAI 38200000 

PROCEDURE DISKCLOSE(ALPhA); value alpha; INTEGER ALPHA;* *R9038355000 ~ 

PROCEDURE BACKCLOSE(ALPhA); value alpha; integer alpha;* IR9038b40000 

PR PC E DURE- OTHERCLOSe,( ALPHA); VALUE ALPHA ; INTEGER ALPhASX XR90 38648000 

PROCEDURE FILEOPENcXTRA.AuPhAJ; XR9039000000 "" 

PROCEDURE CREATELOGCDOD); value odd; array DDDi*J; 39500000 

PROJEEDURE sustatuS{A,odd»b); value a.doo.b; Real a»b; array dodc*]« 39900000 
PROCEDURE diRectorybuildeR(a,ddd); 40000000 ' "" " 

procedure REALFlLECLOSEfAtPHAj; VAlUE A^Pha; INTEGER ALPHA;* XR9041000000 i-il 

PRQ-eiDURE LINKUP(TYPE#KEY); VALUE TYPE»KEY; REAL TYPEiKEY; 413l0i00 L: 

PROCEDURE CHECKJOBORFILEMESS(MlX,FlBiU)i 41312000 1- 

PROCEDURE L0G0UTMAINT(B)I VALUE Bl REAL B; 41316000 Ul 

PROCEDURE MAINTLOGGERCB); VALUE Bl REAL B; 41327000 ^- 

PROCEDUREMESSAGETABLEBUILDER; 41430000 """' e 

t24?6 ] - « KEYIN PROCEDURE TO BE CALLED - 41450900 p< 

B PROCEDURE KEYINO { DIRECT CALL ) 41451000 hai 

1 B PROCEDURE KFYINI ( DIRECT CALL ) 41451100 ^ "^ " ' "~W 

2 » PROCEDURE KEYIN2 ( INDEPENDENT RUNNER ) 41451200 Ui 
C36112J B LABEL NUMBER ( SWITCH LOCATION IN PROCEDURE 3 41451900 U 

"^ ~"y 

r ' 

R< 

j24! 
bbi 



"u*/?**". i;**i end of first keyin procedure calls 41459900 

•'1*»77**'', %**% end of second ktyin procedures 41469900 

pmceldure enteRsysfile(N); value n; Real n; 41600000 

PROCEDURE aRTN(a.N); VALUE A»N; aRRAY At*J; INTEGER N;* 42474000 

PROCEDURE ASR; BEGIN INTEGER LBCNTRl ARRAY AITt*]; REAL TEMP;* 42462000 

SAVE REAL PROCEDURE CORfND; FORWARD; 42509000 

PROCEDURE INTERRUPTCTYPe); value type; REAL type; 42510000 

PROCEDURE FILLSYSTaT; 42600000 

PROCEDURE SAVESTATI STICS; 42700000 

PROCEDURE INTFINISH; forward; 44008998 

SAVE PROCEDURE INITIALIZFIX 44009000 

-- ♦ (T ♦ X FIXEX PROCEDURES 44152500 

SAVE REAL PROCEDURE CORENDIX 44441000 

PROCEDURE INTFINiSh; 45000000 W| 
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